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Fditorial. 


Again we have to apologise for the late publication of this © 
newsletter which was due to lack of articles sent in. Membership 
numbers have dropped quite a lot in the last year so it will be 
difficult to maintain a steady flow of newsletters in the © 
future. | 


Membership renual for 1989 is now due so please send in as soon 
as possible so that we can see the ammount of interest for this 
year.Why not send in an article or programme listing as well. 


letters. 
R.Andrews Ipswich 


Can you please tell me if the WO2797 disc controller and CDOS 2 
is still available. Also can you confirm that a TMS911 DIMA 
controlier is not required. | 


Yes the disk controller is available for £55.00 and CDOS 2 for 
£45.0U. The controller does not require a TMS9?11 to be present. 
Please note however that MDEX is not available for. the WDB2797 
controller card. | 7 


N OD Osmond Glostershire 


1 have been told by Maplin that the Yamahar 9938 VDC has been 
discontinued, but they have supplies of the chip and kits for 
about a year. Can you confirm this. I am thinking of building a 
Weather Satalite receiver and decoder, then to interface it to 
the Cortex. I would like some help with the programming, I have 
wreitted programmes for the BBC and Amstrad Computers which will 
be of some help. Anyone interested please contact me at :- 

THE BIRCHES. SYNWELL GREEN. WOTTON UNDER EDGE. GLOSTERSHIRE. 


Yes it is true that Maplin will be discontinueing the 9938 when 
supplies run out, but we have another supplier available should 
anyone not be able to obtain the IC from Maplin. Good luck with 
the satalite receiver. Let us know when you get it working. 


Stu 


8) 


rt Mason Nottingham 


I have recently installed a 9938 into my Cortex, is there a 80 
Column version of MDEX Window available ? 


No Il am afraid I do not know of an 8U column version of Window I 
wonder if any one out there has one ? 


Stuart also enclosed a simple Basic programme to save and load 
ASCII format basic programmes to disk. The programme relies 
heavily on articles in newsletter 19. In use the programme would 
occupy high line numbers above the main programme, and would be 
used to save the whole programme to disk or to chain another 
programme (in ASCII) into the main programme. . 
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List 

1600 
1010 
1020 
1036 
1500 
1310 
1600 
1700 
1710 
1720 
1730 
1/740 
1806 
1510 


1820 


S.a MASON 


REM obcskobok deseo cob se ok ot ao i ce eo i aE HOMME HM ME ec oe i EE 
REM * 

Rem + ASCII SAVE AND LOAD ROUTINES 

REM >» 


DIM $51016) 

DIM $S2030] 
AA=ADRL$S260]] 
RESTOR 1800 | 
FOR X=0O TO 118 STEF 2 

READ ANS 

MWD AA+X J=ANS 

NEXT X | oak ; oo 
DATA O4°1H- O7046H; ON220H, COEF BCH, 0448H, OBSOSH. OFF BAH: 012046H 
DATA O228H. OFF FCH; 08601H- 015F9H- 04D0H-; G380H-; O7 10H. OS80H 
DATA OZOH; 045BH; O468AH, OCACOH: O40H, OCAC1H: O42H- OCACDH, 064H, OCACEH: O64H-; OF 


AFH: O463H 


1830 


1846 
O3SH. OCSEBH 


1856 
2OOG 
, 2010 
2620 
2OSO 
26460 
2O35G 
2GKG 
2G7G 
4060 
4016 


AOdZG 


4G10 
AGZ0 
4030 
4AO4O 
4100 
AiiG 
4120 
4130 
5006 
5016 
BOZO 
30306 
50406 
205060 
30460 
5070 
S080 
BOF 1 
5100 
5910 
S920 
3730 
S74G 


DATA OSS08H- OEF BAH; O1A10H- OCO7SH, 08181H, O1B17H, O4AGH, OSCBOH. OF 28H 
DATA OF FFOAH-. OZOGH- O45RH- O4SAH- OCO2BH, GS2H- GCOGBH: O34H- OCS46BH, O3GH; OLSABH, - 


DATA OSAH.- O4D1H- OFO3H. GEBO4H, ODCSZH-, O14FEH: OSS0H: O71LIH: O35GH 
TEXT : | 
COLGUR 1,15. 

PRINT @(i-ilks" 1 Save programme as ASUIT text" 

PRINT @(1-2)'3" 2 Load programme from ASCII file" 

PRINT @(1;>206)3;"Make your chotce 2 <O8>"; | 

INPUT “i; ANS 


IF ANS<1 OR ANSSS THEN BRTD 2040 


> 
ON ANS THEN GOTO 3060, 5060 


TEXT ee. a a ; 
PRINT @(tsii"Drive 2° <O8>"s | | 
INPUT Z1;0DNO |. | i, 


IF DNO<0O OR DNO>1 THEN 6OTO 3010 
PRINT @(i>2)3 "File Name : "3 
INPUT £2; $5106] 
OPEN DNO, $S106],-F1i>CRE 

FIN=6 

ERR=0 

mALL “Start".A@A-ADRCERR] 

IF ERR THEN GOTO 4160 . 

CALL "Continue", AA+OZOH. ADRISSi C031, A0RCIF INI 
IF FIN THEN GOTO 4160 

PUT Fi-$S1(0] 

GOTO 401G 

CLOSE Fl 

TEXT 

PRINT “<O7>"s 

STOP | 

TEXT 

PRINT @(i-i}3 "Drive : <O8>"; 

INPUT %1; 0N0 : | 

IF DNO<O OR DNOS1 THEN GOTO 5010 

PRINT @(1-23}:"“File Name = “3 

INPUT £23510] 

OPEN DNO,$S1(01,F1 

IF EOFCFi] THEN §60TO 59710 

GET Fi-$S1(0] 

ENTER #5100) 

GATO 5070 

CLOSE Fi 

TEXT 

PRINT “<O7>"s 

sTar 


‘ 
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N D Osmond. 

THE BIRCHES. 

SYNWELL GRN, ° 
WOTTON UNDER EDGE, ~ 
GLOS. ae 

20 November 1988. 


Dear Tim. 


Please find enclosed pgm to change the RS232 port to an 8 bit port, 
in MDEX O/S.Usefull for printer graphics. 


. FILE PR.ASM 


This module changes the Rs232 port from 
. @ Abit port to an Sbit port 
. PORTS=FN.PORTS | 


titi’ PORTS’ 
idt ’PORTS.n’ 


dstk rio | | e 
PORTR*¥ 

mov rit, srt | 

bl | G@fentrs | function entry 

data 08000 | terminator,no arguments 

limi O mask all interupts 

li ri2,O80 load 9902 base adder | 

li. ro,025 “data for control reg OOLOOOLIL 

swob ro 23=msb 

sboa 14 , tLdetrl=1/write to Control reg on F702 

ldcr ro,&8 | “S bits to control reg 

b Crets 

end 


The above pgm would be linked to the @basic pgm, | 
EXTERNAL in the @basic pgm would be EXTERNAL=PORTS=FN.PORTS,to call D%*=FN.PORTS 


KKKEKEE 
Tim via the newsletter could you ask Billy Bucknell to contact me please. 


Yours faithfully 
NIGEL. 


O.W.Hulme, Hednesford. 


CALLING ALL wWDoD2797 CDOS VUSERS 


It is a little bit disconcerting after fitting the WD2797 based 
disk operating system to discover that all those nice utilities 
in past GROUP NEWSLETTERS just will not work. In case you > are 
still in trouble the following alterations to the listing. should 
put you right. However I must confess defeat with C.M.GALES 
offering on page 5 NEWSLETTER 6, I have still failed to get it to 
run, but I promise you all the following will. 


NEWSLETTER 5. Page 7 
AUTO-—RUN 
220 DC=MWD (06388H+D* 2) 
245 BPS=MWD (06370H+D* 2) 


NEWSLETTER 8. Page 8 
AUTOLOAD 
140 DC=MWD (06388H+D* 2) 
170 BPS=MWD (06370H+D* 2) 


NEWSLETTER 9. Page 10 


“-FEFA  —- MOV: @>6370(R1) +R5_ 
‘FEFE MOV @>6388 (R1) »RE 


NEWSLETTER 12. Page 3 
PRINT DIRECTORY 
700 DP=MWD (06388H+D2) 
750 BPS=MWD (06370H+D2) 


NEWSLETTER 13. Page 4 
SORTDIR 
360 DP=MWD (06388H+D2) 
410 BPS=MWD (06370H+D2) 


NEWSLETTER 15. Page 10 
DISK VERIFY 
300 P1l=MWD (06370H4+DRV*2) !Pointer 1 
310 P2=MWD(06380H+DRV*2) !Pointer 2 
320 P3=MWND (06388H+DRV*2) !Pointer 3 
370 SID=MWD (P2+2) !Sides 
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MAZE DENNIS JOHNSON 


Load in the Basic programme and then switch to monitor to load 
the machine code data "MAZED" before running 


~ 3 PRINT @"C" 
~ 5S GOTO 5000 

10 GRAPH | 

15 X=06321H: Fe=l 

17 GOTO 580 

20 Nel 

2> ON F THEN GOTO 30,160, 270, 380 

IU. Jexs Nel 

535: LeZ4+1 

40 IF MEM[ZJ=OFFH THEN GOTO 5uU 

45 N=N41l: Z=Z+1: GOTO 40 

240 ON N THEN GOSUB 53,55,57,59,61, 69565901 

591 GOTO 70 

93 PLOT 8,32 TO 248,32 TO 248,158 Tao 8, 158 TO 8,32 

54 POP : GOTO 2000 

55 PLOT 24,40 TO 292,40 10. 232,150 10 24,150: 10 24.40 
596 GOTO 68 | a | 
97 PLOT 40,48 TO 216,48 TO 216,142 TO 40,142 TO 40,48 
58 GOTO 68 | 

29 PLOT 56,56 TO 200,56 TO 200,134 Tao 56,134 TO 56,56 
60 GOTO 68 : 

61 PLOT 72,64 TO 184,64 TO 184,126 TO 72,126 TO 72,64: 
62. GOTO 68 | 

65 PLOT 88,72 TO 168,72 TO 168,118 TO 88,118 TO 88,72 
64 GOTO 68 

65 PLOT 104,80 TO 152,80 TO 152,110 10 104,110 TO 104,80 
66 GOTO 68 

6/ PLOT 120,88 TO 136,88 TO 136,102 TO 120,102 TO 120, 88 
68 PLOT 255,28 TO 248,32 TO 248,158 TO 255,162 

69 RETURN 

70 M=N 

75 L231: R=33: A=8: B=40: C=24: 0=150 

80 IF MEMLX-L]=O0FFH THEN E=8 

85 ELSE -E=0 

90 GOSUB 1000 : 

22 IF X-L=0637FH THEN GOSUB 1020 

25 AzA+16: B=B+8: C=C+16: D=D-8 

100 L=L-1l: N=N-] 

105 IF N<=l1 THEN GOTO 115 

110 GOTO 80 

115 A=232: B=40: C=248: D=150 

120 = =6IF MEM[LX+R ]=OFFH THEN E=8 

125 ELSE E=0 

150 GOSUB 1010 

132 #XIF X+R=0637FH THEN GOSUB 1020. 

135 Az=A-16: B=B+8: C=C-16: D=D-8 

140 R=R+1l: M=M-] 

‘145 IF M<=1 THEN GOTO 500 

150 GOTO 120 
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Z=xX2- Nel 

Z=Z2Z-32 

IF MEMLZ)]=OFFH THEN GOTO 180 

N=aN¢+1l: Z=Z-32: GOTO 170 | 

ON N THEN GOSUB 53,55,5/7, 59, él, 63,65,6/7 

M=N 

L=33: R=31: A=8: B=40: C= =24: D=150 

IF MEM[LX-L]=OFFH THEN E=8 
ELSE. Eso) «< 

GOSUB 1000 

IF X-L=0637FH THEN GOSUB 1020 

Az=A+16: B=B+8: C=C4+16: D=D-8 

L=L+32: N=N-1l 

[F N<=]l THEN GOTO 230 

GOTO 195 

Az232: B=40: C=248: D=l]150 

IF MEMLX-RJ=O0FFH THEN E=8 
ELSE E=0 

GOSUB 1010 

IF X-R=O0637FH THEN GOSUB 1020 

Az=A-i6: B=B+8: C=C-16: D=D-8 

R=R+32: M=M-1 

IF M<=1 THEN GOTO 500 


GOTO 235 
72zX: Ne=l a 
Z-Z-1l 


IF MEME ZJ=GFFH THEN GOTO 290 
N=N4+1l: Z=Z-1: GOTO 280 | 
ON N THEN GOSUB 53,55,57,59,61,63,65,6/7 
M=oN 
ea 3 R=33: A=8: B=40: C=24: D=150 
IF MEME X4+L]=OFFH THEN E=8 
ELSE. Bev: 
GOSUB 10098 
IF X+L=0637FH THEN GOSUB 1020 
A=A+16: B=B+8: C=C+16: D=D-8 
L=L-l: N=N-1 i 
IF N<=l THEN GOTO 340 
GOTO 305 
A=232: B2=40: C=248: D=150 
IF MEME X-R]J=OFFH THEN E= 8 
ELSE eu 
GOSUB 1010 
IF X-R=0637FH THEN GOSUB 1020 
A-A-16: B=B+8: C=C-16: D=D-8 
R=R+1l: M=M-1 
IF M<=l1 THEN GOTO 500 
GOTO 345 
Lex Nel 
Z=2+52 
If MEM[Z]= OFFH THEN GOTO 400 
N=N+l: Z=Z4+32: GOTO 390 | 
ON N THEN GOSUB 53,55,57,59,61,63,65,67 
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MoN 

L=33: R=31: 

IF MEM[ X+L ] 
ELSE E=0 

GOSUB 1000 


IF X+L=0637FH THEN GOSUB- 1020 


A=8: B=40: 


=OFFH THEN E=8 


A=A+16: B=B+8: C=C+16:— 


L=L+32: N=N- 


] 


IF N<=l THEN GOTO 450 


GOTO 415 


As2oz2:. Bea0: 


IF MEM[ X+R ] 
PSE: Eb =O 
GOSUB 1U010 


IF X+R=0637F HH 


C=248: D=150 
=<UOFFH THEN E=8 


A=A-16: B=B+8: C=C-16: 
R=R+32: M=M-] 
IF M<=l THEN GOTO 500 


GOTO 455 
G=KEY[O]. 
LM=O0 


IF GsO9H THEN Fa=l: LM=l 
If G=QOBH THEN F=2: LM=l 
If GstO8H--THEN F=H3: LM=l 
IF G=0AH THEN F=4: LMe=l 
IF G=QOlEH THEN GOTO 555 
IF G=77 THEN GOTO 3000 
IF tM=0 THEN GOTO 500 


PRINT @"C" | 
GOTO 580 


IF F=l THEN 
IF F=2 THEN 
IF F=3° THEN 
IF F=4 THEN 
PRINT @"C" 

IF F=l THEN 
IF F=2 THEN 
IF F=3 THEN 
IF F=4 THEN 


GOTO 600 
GOTO 625 
GOTO 650 
GOTO 675 


$K="EAST" 
$K="NORTH" 
$K="WEST" 
$K="SOUTH" 


PRINT @(4,22);"FACING "; 


GOTO 20 
IF MEM[LX4+1]= 
X=X+1 


GOTO 575 
IF MEM[X-32]=OFFH THEN Gora. 500 


X=X-32 

GOTO 575 

IF MEM[X-1l]= 
X=X-1] 

GOTO 575 


IF MEM{LX+32]=OFFH THEN GOTO 500 


X=X+32 
GOTO 575 
GOTO 575 


OFFH THEN GOTO 500 _ 


OFFH THEN GOTO 5UO0 
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THEN GOSUB 102) 


K;"/POSITION 


1000 
1005 
1010 
1015 
1020 
1025 
2000 
2003 
2005 
2010 


2015 
2020 
2025 
2030 
2035 
2040 
2045 
5000 
5001 
3002 
3005 
3010 
2015 
S017 
3020 
2025 
3030 
3035 
3040 
3045 
3050 
5000 
2010 
WIN" 
5015 
5020 
9030 
2040 
9050 
5060 
5070 


9075 


9080 
9090 
2100 
D110 


PLOT A,B-E TO C,8 10 C,D TO A,D+E TO A,B-E 


RETURN . 
PLOT A,B TO C,B8-E TO C, D+E TO A,D TO A,B 
RETURN 

PLOT A,B-E TO C,D: PLOT C,B TO A,D+E 
RETURN 


IF X+]1=0637FH THEN GOTO 2010 
FOR S=06300H TO O630FH 

GOTO 500 

PRINT @(8,12);"WELL DONE"; 


PRINT @(8,14);"TRY AGAIN? Y OR N"; 


INPUT $K 
LF $k=a"y" THEN COTO LU 
STOP 


if Meh US JSOreH THEN SPUT K,l 
K=K+1 
NEXT S 
SHAPE 1,-1,-1,-1,-1 
SHAPE 2, 08142H, O02418H,01824H,04231H 
PRINT auc 
TU 
FOR V=06200H TO O63FFH 
IF MEM(VJ=OFFH THEN SPUT l, 1 
IF V=X THEN SPUT 1,2 


T=T+l 

NEXT V- OO a 

PRINT @"20D"3"PRESS ANY KEY TQ CONTINUE" | 

J=KEY{O] | _— | 

IF J=0 THEN GOTO 4045 — 

PRINT @"C" 

GOTO 17 

PRINT @(3,5);"FIND YOUR WAY AROUND THE MAZE" 

PRINT “IF YOU END UP FACING THE WALL WITH THE CROSS YOU 

PRINT "(by D.W. Johnson)" | . 

PRINT "To look in any direction you use the cursor keys" 

PRINT " Left arrow = west" | 

PRINT " Right arrow = east" 

PRINT " Up arrow = north" 

PRINT " down arrow = south" 

PRINT "The home key moves you one space at a time 
the direction you are looking" 

PRINT "Press the “°M” key at any time to look at a 
showing where-you are" 

PRINT “Press any key tc start" 

J=KEY[ 0] 

IF J=0 THEN GOTO 5090 

GOTO 10 


MAZED 


Data for maze programme. Type in 


command and then save 6200 to 6400 as a 
Monitor D command 


6200=FFFF 
6210=F FFF 
6220=FFOO0 
6230=0000 
6240=F FOO 
6250=0000 
626U0=F FOO 
6270=U000 
6280=F FFF 
6290=0000 
62A0=F FOO 


62B0=0000 
62CU=F FOO 
62D0=0U000 
62E0=FF OG 
62F J=0U00 
6300=FFO00 
6310=FFFF 
6320=FFO0O0 
6330=OUFF 
6340=F FFF 
6350=0000 
6360=F FUG 
6370=0000 


—6m6 SBOE FOO 


6390=0000 
63A0=FFUO 
63B0=00U0 
63CU=FFOO 
63D0=0000 
63E0=F FFF 
63F O=FFFF 
6400- 


FFFF 
FFF 
FFFF 
Qo000 


0000 


wad 
FFOO 
BO0U 
FFOO 


FFOO 


avu00 
FFOO 
FFE 
FFFF 
FF OO 
UO 
FFOO 
FFF 
auvd 
FFOO 
FF OO 
FFOO 
FFOO 
UOU0 
F FOO 
FFF 
FFFF 
FFFF 
0000 
0000 
FFF 
FFFF 


FFF 
FFFF 
0000 
OOOU 
OOFF 
FFOO 
FFF 
FFOU 


FFFF 


FFOO 
UUFF 
OUUD 
FFF 
OUFF 
UUFF 
UUFF 


FRFF 


OUF F 
Ouu0 
OUFF 
FREE 
FEF F 
FFFF 
gou0 
0000 


OOF F 


OUFF 
QOFF 
OUFF 
0000 
FFF 
FFF 


2.0-10 


FFFF 


FFF 


0000 
0000 
OOF F 
FFF F 
OOFF 
0000 
OOFF 
FFOO 


OOF F 


FFOO 
OOFF 
FF UO 
OOFF 
DUUO 
FFF 
OUFF 
Orerere 
OUFF 
OOFF 


0000 


OOFF 
OOFF 
OUFF 
OOFF 
OUFF 


~OUFF 
~9g000 


FFF 
FFFF 
FFF 


FFF 
FFFF 
0000 
0000 
OOFF 
FF OO 
0000 
FF OO 
UOFF 
FFOO 
uood 
0000 
UOFF 
FF OU 
UOFF 
UOUU 
FFE 
FFOU 
OUFF 
FF OU 


QOFF. 


OOF F 
0800 


mbrerene 


OOFF 
FFF 
enerere 


FFOQ 


OOFF 
0000 
FFFF 
FEFF 


FFF 
FFFF 
0000 
FFOO 
OOFF 
FFOO 
OOFF 
goou 
FFOO 


with the monitor IH 
code block with the 


FFFF 
FFFF 


OOFF - 


OOFF 
OOFF 
FFFF 
FRFF 
FFFF 
0000 
FRFF 
OOFF 
OUFF 
OOFF 
OOFF 
OUFF 
UOFF 
OOFF 
OOFF 
OO000 
OOFF 
UOFF 
OOFF 
OOFF 
OOFF 
FFFF 
OUFF 
UOFF 


FFF. 
OOFF . 


FF FF 
FFF 
FFF 


NEXT USER GROUP MEETING 


The next combined T1-994A Users Group and Cortex Users Group 
Workshop meeting will be held on Saturday the l15th.of April 1989 
at Sneed school off sneed lane, Bloxwich. North of Walsall. 


This meeting is an informal all day gathering offering an 
opportunity for Cortex users to meet us both and each other, and 
also to see some of the items of hardware and software for sale. 


A number of us usually bring along thier Cortex computers to 
demonstrate various hardware modifications etc. This time we 
will be demonstrating. A Cortex fitted with a Yamaha 9938 VDP 
using Chris young s software interface. 


MAP. ® Mb noc 
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Cortex User Group Sale Items 


Hardware 


R.G.B. interface P.C.B £8.00 
Centronics o * eC 3B : | £7.00 
E.Bus 512K DRAM P.C.B plated through hole £40.00 
Externel, Video interface P.C.B £15.00 
Disk contrbager WO2797 + P.C.B° Cortex I £55.00 
Disk controller WD2797 + P.C.B Cortex II £60.00 
E.Bus interface complete Kit £30.00 
E.Bus 8 X 8K EPROM socket card built but no EPROMS “£30.00 
E.Bus 8 X 32K EPROM socket card available soon 
E.Bus 4K RAM 8K EPROM socket 16 L/O Lines e x a £15.00 
TMS9902 UART IC’s ; £2.00 
74LS611 or 74L5613 Mapper | IC’s (req pull“up Rs) £10.00 
TMS9909 and TMS9IIIL1I £30.00 each or the pair for £50.U0 
Other IC°s in stock please write in for quote | 
Software all disk formats please specify when ordering 
CDOS basic disk system 1.20 for [MS9909 £45.00 
CDOS basic disk system 2.00 for WD2797 £45.00 
Wortex word processor + spelling check by J.Makenzie £10.00 
Drawtech graphics drawing package by Tim Gray £10.00 
Menue generator by A.R.C.B8adcagx £10.00 
Two pass assembler by R.M.Lee - £14.00 
Two pass asembler by C.J.You : £1.50 0 
9938 VOP driver utilities C.J:¥oung | £10.00 
Cdos utilites disk - copy a only | £2.00 
Cdos programes and games all £2.50 each. :- 
ARCHIE ASTEROIO BREAKOUT 8URGLAR CATERPIL C-PEDE 
CANYON COTELLO FIREBIRO FROGGER GDESIGN GOLF 
HUNCHBACK INVADERS MAZE MAZE-3D MBASE MICROPED 
MIS-COM MUNCHER NIBBLERS N-ATTACK OLYMPICS P.BOAT 
PENGO PONTOON RESCUE S-ATTACK SPACE-BU THE-ZOU0 
TRAG VADERS WALL X /'0 
MDEX Software all formats please specify ( 9909 Disk I/F req ) 
MDEX CORE with debug monitor text editor and basic £10.00 
MDEX ASM & LINK assembler and linker £10.00 
MDEX SYSGEN system generation kit £10.00 
MDEX WORD word processor | £10.00 
MDEX P.D.S. all the above in one - package £30.00 
MDEX S.P.L. system programming Language £10.00 
MDEX META compiler generator £10.00 
MDEX QBASIC basic compiler £15.00 
MDEX PASCAL sequential pascal: £10.00 
MDEX WINDOW full screen editor. £15.00 
MDEX SPELL spelling checker £10.00 
MDEX utilities copy charge only £2.00 


